home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGASIC / BASFILES.LZH / DSKSPACE.BAS < prev    next >
BASIC Source File  |  1988-09-10  |  287b  |  12 lines
  1. '$INCLUDE:'QBTOOLS.INC'
  2. '' '$INCLUDE: 'QBTOOLS2.INC'
  3.  
  4. FUNCTION DiskSpace&
  5.     DIM InRegs AS RegType, OutRegs AS RegType
  6.     InRegs.ax = &H3600
  7.     InRegs.dx = &H0
  8.     CALL INTERRUPT(&H21, InRegs, OutRegs)
  9.     DiskSpace& = CLNG(OutRegs.cx) * CLNG(OutRegs.ax) * CLNG(OutRegs.bx)
  10. END FUNCTION
  11.  
  12.